﻿<!-- #include file="mymin.asp" -->
<%Call Head()

dim id,p
id=request.QueryString("id")
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1

dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from 74hu_guest where ID=" & ID
rs.open rsstr,myconn,1,1
w "<card title=""回复留言""><p>"&_
	"标题："&noubb(rs("title"))&"<br/>"&_
	"内容："&noubb(rs("text"))&"<br/>"&_
	"时间：" & rs("HU_time") & "<br/>"&_
	"----------<br/>"&_
	"联系方式：" & noubb(rs("lianxi")) & "<br/>"&_
	"型号：" & rs("agent") & "<br/>"&_
	"回复："&noubb(rs("retext"))&"<br/>"&_
	"时间："&rs("retime")&"<br/>"&_
	"----------<br/>"
%>
<input name="retext<%=time_r%>" type="text" format="*M" emptyok="true" maxlength="500" value='<%=noubb(rs("retext"))%>'/><br/>
<anchor>[回复留言]
<go href="resave.asp?sid=<%=sid%>" method="post" accept-charset="utf-8">
<postfield name="id" value="<%=id%>"/>
<postfield name="p" value="<%=p%>"/>
<postfield name="retext" value="$(retext<%=time_r%>)"/>
</go>
</anchor><br/>
<%
rs.close
set rs=nothing

%>----------<br/>
<a href="index.asp?sid=<%=sid%>&amp;p=<%=p%>">[留言管理]</a><%Call Last%>